40 PRINT"[147]":FORA=1TO800:NEXTA:FORB=54272TO54296:POKEB,0:NEXTB:V=54296:W=54276:A=54277:HF=54273:LF=54272:FORY=1TO3:FORX=1TO25:POKEV,15:POKEW,129:POKEA,15:POKEHF,60:POKELF,100:POKEHF,0:POKELF,0:POKEW,0:NEXTX:FORT=1TO300:NEXTT:FORZ=1TO40
170 POKEV,15:POKEW,129:POKEA,128:POKEHF,90:POKELF,140:POKEHF,0:POKELF,0:POKEW,0:NEXTZ:FORS=1TO500:NEXTS:NEXTY:PRINT"[147]":POKE53280,11:POKE53281,11:PRINT"[155]":PRINT:PRINT:PRINT"  HERE IS ONE SHUFFLING PROGRAM.":PRINT:PRINT"  THIS ONE SHUFFLES FAST AND SOME-":PRINT
260 PRINT"  WHAT CLEAN REMINDING ONE OF MAYBE":PRINT:PRINT"  A VEGAS DEALER.  PROGRAM #2 SOUNDS":PRINT:PRINT"  A LITTLE MORE LIKE YOU AND I DEAL.":PRINT:PRINT"  TAKE YOUR PICK, EITHER ONE WILL":PRINT:PRINT"  ENHANCE YOUR CARD GAME."
310 FORC=1TO6000:NEXTC